Fix marker usage in align-areas.

* align.el (align-areas): Call the indication function with
positions instead of markers for arguments.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88440867435c4909a892eac5b3ae35d1638feb76..f89f6e51ac424ea0b1599f9dead8d4233ae8c40f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-09-16  Chong Yidong  <cyd@gnu.org>
 
+       * align.el (align-areas): Call the indication function with
+       positions instead of markers for arguments (Bug#12343).
+
        * files.el (parse-colon-path): Use split-string (Bug#12351).
 
        * window.el (special-display-popup-frame): Doc fix (Bug#8853).

diff --git a/lisp/align.el b/lisp/align.el
index 4c82d7bea81a377503d9b4310cbdf06c9453487a..b5c4c442f2485e484c74d87d97a2f8aa00f4401f 100644 (file)
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1201,7 +1201,10 @@ have been aligned.  No changes will be made to the buffer."
              (gocol col) cur)
          (when area
            (if func
-               (funcall func (car area) (cdr area) change)
+               (funcall func
+                        (marker-position (car area))
+                        (marker-position (cdr area))
+                        change)
              (if (not (and justify
                            (consp (cdr area))))
                  (goto-char (cdr area))